home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
vbsource.zip
/
TEXTEDIT.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-09-19
|
6KB
|
133 lines
Form1
Text Editor
Form1
FileTextBox
OpenButton
Open File
SaveButton
Save/New File
ExitButton
Form_Click
FileOpener
NameToUse
Mode3
RecordLen
ReplaceFile
READFILE3
ADDTOFILE
RANDOMFILE
BINARYFILEK
FileNum
OpenerError'
Action
FileErrors
FileTextBox_Change
ConfirmFilee
TheName
Operationw
ConfirmFileErrorp
TheFiles
Confirmation
Conirmation;
LOADFILE
errVal
msgType
MB_ICONEXCLAMATION
ERR_DEVICEUNAVAILABLE
ERR_DISKNOTREADY2
ERR_DEVICEIO
ERR_DISKFULL`
Err_BADFILENAME
ERR_BADFILENAMEORNUMBER
ERR_PATHDOESNOTEXIST
ERR_BADFILEMODE
ERR_FILEALREADYOPEN
ERR_INPUTPASTENDOFFILE
response
ExitButton_Click
CheckItOutf
FileTextBox\
TheTextBox
TextI
Answer
GetName
OverWrite
SaveButton
Caption&
Form1
LoadOrSave
WorkingFileName
TheBox
WriteError
OpenButton_Click
Form_Load
CurrentX
CurrentY
BoxCaption
SaveBotton_Click
SaveButton_Click
OpenMode
ReadError
LineInput
NextLine
LineFromFiles
NextLines
LineFromFile
FileOpener
ConfirmFile
The file "
already exists on disk."
Saving the text box contents to that file will
destroy the file's current contents, replacing
them with the text from the text box."
Choose OK to overwrite the file, Cancel to stop.
File Massage
The file "
doesn't exist."
Would ypu like to create and the edit it?"
Choose OK to create the file, Cancel to stop."
File Message
FileErrors
That device appears unavailable.
Insert a disk in the drive and close the door.
Internal disk error.
Disk is full. Continue?
That filename is illegal."
That path doesn't exist.
Can't open your file for that type of access."
This file is already open"
This file has a nonstandard end-of-file marker,
or an attempt was made to read beyond
the end-of-file marker."
Disk Error
ExitButton_Click
CheckItOut
Do you want to save this text?
Save As:
Save/New File"
Text Editor"
GetName
File name"
OverWrite
Form_Load
Text Editor"
Using
If you want to create a new text file, "
choose OK, type in your text, and then "
choose Save/New File."
To open a file that already exists on disk,
choose OK, choose the Open File button,
and type the name of the file you want to open.
SaveBotton_Click
SaveButton_Click
Save/New File"
Save As:
New/Save File"
Save/New File"
OpenButton_Click
File To Open:"
Sorry your file is too large to edit."
File Too Big
Text Editor Now Editing:
New/Save File"